AL HAL,HE↔

COM HLSAIF(37B,XH)/COM↔
↓
λ
SAV HLSAIF↔

;COM HALSAI(37B,XH)/COM↔
;↓
;λ
;SAV HALSAI↔

;ru hlsaif↔
;tcalc←tcalc↔
;↓
;λ
;do fraid↔
;tcalc↔
;≠≠≠E↔

ru hlsaif↔
pass3/37b←pass3↔
↓
λ
do fraid↔
pass3↔
≠≠≠E↔

;ru halsai↔
;gobble←gobble↔
;↓
;λ
;do fraid↔
;gobble↔
;≠≠≠E↔

;ru halsai↔
;wldmod/37b←wldmod↔
;↓
;λ
;do fraid↔
;wldmod↔
;≠≠≠E↔

;ru halsai↔
;exprs←exprs↔
;↓
;λ
;do fraid↔
;exprs↔
;≠≠≠E↔

;ru halsai↔
;alprin←alprin↔
;↓
;λ
;do fraid↔
;alprin↔
;≠≠≠E↔

com emiter(H)/com↔ 
λ
;com intdef(H)/com↔
;λ
;com pmatch(H)/com↔ 
;λ
;com arith(H)/com↔ 
;λ
;com halrec(H)/com↔ 
;λ
;COM AL(37B,H)/com↔ 
;λ

;REN ALOLD.DMP←AL.DMP/Q↔

R LOADER 100↔
AL,BAIL[S,RHT]≠
λ
SSAVE AL↔

;r srccom↔
;gobble.dif←gobble.sai,gobble.sai[hal,rht]↔
;wldmod.dif←wldmod.sai,wldmod.sai[hal,rht]↔
;exprs.dif←exprs.sai,exprs.sai[hal,rht]↔
;λ